﻿Imports OMANE.Common.Model.Interfaces
Imports System.Collections.ObjectModel
Imports PTIC_GestionBDD
Imports Actuariat
Imports PTIC_Util

Public Class ReferentielTablesMaintienINCINV_Fra
    Inherits ReferentielTablesTravail
    Implements IReferentielTablesINCINV_Fra


    Private m_Connection As IConnection
    Private m_ListeTraitements As ListeTraitementsBase(Of String)

    Public Sub New(ByVal InfosTables As ReadOnlyCollection(Of IInfoTableReferentiel),
                   ByVal ListeTraitements As ListeTraitementsBase(Of String))
        MyBase.New(InfosTables)
        m_ListeTraitements = ListeTraitements
    End Sub

    Private m_FactoryINCINV_Fra As ITablesMaintienINCINV_FraFactory
    Public ReadOnly Property Factory As Actuariat.ITablesMaintienINCINV_FraFactory Implements Interfaces.IReferentielTablesINCINV_Fra.Factory
        Get
            If m_FactoryINCINV_Fra Is Nothing Then
                m_FactoryINCINV_Fra = New TablesMaintienINCINV_FraFactory(InfoTables, m_ListeTraitements)
            End If
            Return m_FactoryINCINV_Fra
        End Get
    End Property

    Public ReadOnly Property TraitementsFactory As Interfaces.IReferentielTablesTravailTraitements Implements Interfaces.IReferentielTablesINCINV_Fra.TraitementsFactory
        Get
            If m_FactoryINCINV_Fra Is Nothing Then
                m_FactoryINCINV_Fra = New TablesMaintienINCINV_FraFactory(InfoTables, m_ListeTraitements)
            End If
            Return m_FactoryINCINV_Fra
        End Get
    End Property
End Class
